home *** CD-ROM | disk | FTP | other *** search
/ One Click 14 / OneClick14.iso / Ferramentas / Convert XLS to Pdf / xls2pdf_setup.exe / {app} / lib / pdfopt.ps < prev    next >
Encoding:
Text File  |  2002-06-02  |  33.5 KB  |  1,155 lines
  1. %    Copyright (C) 2000, 2001 Aladdin Enterprises.  All rights reserved.
  2. % 
  3. % This software is provided AS-IS with no warranty, either express or
  4. % implied.
  5. % 
  6. % This software is distributed under license and may not be copied,
  7. % modified or distributed except as expressly authorized under the terms
  8. % of the license contained in the file LICENSE in this distribution.
  9. % 
  10. % For more information about licensing, please refer to
  11. % http://www.ghostscript.com/licensing/. For information on
  12. % commercial licensing, go to http://www.artifex.com/licensing/ or
  13. % contact Artifex Software, Inc., 101 Lucas Valley Road #110,
  14. % San Rafael, CA  94903, U.S.A., +1(415)492-9861.
  15.  
  16. % $Id: pdfopt.ps,v 1.14 2002/06/02 12:03:28 mpsuzuki Exp $
  17. % PDF linearizer ("optimizer").
  18.  
  19. .currentglobal true .setglobal
  20. /pdfoptdict 200 dict def
  21. pdfoptdict begin
  22.  
  23. % This linearizer is designed for simplicity, not for performance.
  24. % See the main program (the last procedure in the file) for comments
  25. % describing the main processing sequence.
  26.  
  27. % ---------------- Utilities ---------------- %
  28.  
  29. % ------ Data structures ------ %
  30.  
  31. % Distinguish dictionaries, arrays, and everything else.
  32. /ifdaelse {        % <obj> <dictproc> <arrayproc> <otherproc> ifdaelse -
  33.   3 index type dup /dicttype eq {
  34.     pop pop pop
  35.   } {
  36.     dup /arraytype ne exch /packedarraytype ne and {
  37.       exch
  38.     } if pop exch pop
  39.   } ifelse exec
  40. } bind def
  41.  
  42. % Implement dynamically growable arrays using a dictionary.
  43. /darray {        % <size> darray <darray>
  44.   dict
  45. } bind def
  46. /dadd {            % <darray> <value> dadd -
  47.   1 index length exch put
  48. } bind def
  49. /daforall {        % <darray> <proc> daforall -
  50.   /exch cvx /get cvx 3 -1 roll /exec cvx 5 packedarray cvx
  51.   0 1 2 index 0 get length 1 sub 4 -1 roll for
  52. } bind def
  53. /dacontents {        % <darray> dacontents <array>
  54.   [ exch { } daforall ]
  55. } bind def
  56. /dacontstring {        % <darray> dacontstring <string>
  57.   0 1 index { exch pop length add } forall string
  58.   dup /NullEncode filter
  59.             % Stack: darray str filter
  60.   3 -1 roll { 1 index exch writestring } daforall
  61.   closefile
  62. } bind def
  63.  
  64. % Force an object, mapping it if it is a reference.
  65. /omforcenew {        % <obj> omforce <obj'> <notseen>
  66.   dup oforce 2 copy eq { pop true } { exch 0 get omapnew exch pop } ifelse
  67. } bind def
  68. /omforce {        % <obj> omforce <obj'>
  69.   omforcenew pop
  70. } bind def
  71. /omget {        % <dict|array> <key> omget <obj>
  72.   get omforce
  73. } bind def
  74. % Visit an entire tree.
  75. /omvisit {        % <obj> omvisit -
  76.   omforcenew {
  77.     { { omvisit omvisit } forall }
  78.     { { omvisit } forall }
  79.     { pop }
  80.     ifdaelse
  81.   } {
  82.     pop
  83.   } ifelse
  84. } bind def
  85. % Visit a tree, stopping at references to Page objects.
  86. % (This is only needed for the OpenAction in the Catalog.)
  87. /omvisitnopage {    % <obj> omvisitnopage -
  88.   dup oforce dup type /dicttype eq {
  89.     /Type .knownget { /Page eq } { false } ifelse
  90.   } {
  91.     pop false
  92.   } ifelse {
  93.     pop        % Page reference
  94.   } {
  95.     omforcenew {
  96.       { { omvisitnopage omvisitnopage } forall }
  97.       { { omvisitnopage } forall }
  98.       { pop }
  99.       ifdaelse
  100.     } {
  101.       pop
  102.     } ifelse
  103.   } ifelse
  104. } bind def
  105.  
  106. % Collect the list of currently mapped object numbers, in order.
  107. /omapped {        % - omapped <obj#s>
  108.   RMap length array RMap {
  109.     2 index 3 1 roll 1 sub exch put
  110.   } forall
  111. } bind def
  112.  
  113. % Collect the list of object numbers passed to omap by a procedure.
  114. /visited {        % <proc> visited <obj#s>
  115.   false currentomap 2 .execn
  116.   omapped exch setomap
  117. } bind def
  118.  
  119. % ------ Output ------ %
  120.  
  121. % Provide a framework for closure-based streams.
  122. .currentglobal false .setglobal
  123. userdict /clostreams 20 dict put    % stream -> [data endproc]
  124. .setglobal
  125. % Create a closure-based stream.
  126. /clostream {        % <data> <proc> <endproc> clostream <stream>
  127.   2 index 3 -1 roll /exec load 3 packedarray cvx
  128.   /NullEncode filter
  129.         % Stack: data endproc stream
  130.   clostreams 1 index 5 -2 roll 2 array astore put
  131. } bind def
  132. % Close a closure-based stream.
  133. /closend {        % <stream> closend <result>
  134.   dup closefile clostreams exch
  135.   2 copy get 3 1 roll undef aload pop exec
  136. } bind def
  137.  
  138. % Implement in-memory output streams.
  139. /msproc {        % <data> <more> <accum> msproc <scratch>
  140.   3 -1 roll dadd { 100 string } { () } ifelse
  141. } bind def
  142. /mstream {        % - mstream <mstream>
  143.   10 darray {msproc} {dacontstring} clostream
  144. } bind def
  145. /mcontents {        % <mstream> mcontents <string>
  146.   closend
  147. } bind def
  148.  
  149. % Implement a stream that only keeps track of its position.
  150. % (All streams should do this, but the PLRM doesn't require it.)
  151. /posbuf 100 string def
  152. /posproc {        % <data> <more> <accum> posproc <scratch>
  153.   0 2 copy get 5 -1 roll length add put
  154.   pop //posbuf
  155. } bind def
  156. /postream {        % - postream <postream>
  157.   [0] {posproc} {0 get} clostream
  158. } bind def
  159. /poslength {        % <postream> poslength <pos>
  160.   closend
  161. } bind def
  162.  
  163. % Implement streams with variable-bit-width data.
  164. % Note that these are dictionary objects, not stream objects.
  165. /bitstream {        % <stream> bitstream <bstream>
  166.   4 dict begin /S exch def /N 8 def /B 0 def
  167.   currentdict end
  168. } bind def
  169. /bitwrite {        % <bstream> <value> <width> bitwrite -
  170.   PDEBUG { ( ) print 1 index =only (:) print dup = } if
  171.   3 -1 roll begin
  172.   N exch sub dup 0 ge {
  173.     /N exch def N bitshift B add
  174.   } {
  175.     2 copy bitshift B add S exch write
  176.             % Stack: value -left
  177.     { 8 add dup 0 ge { exit } if
  178.       2 copy bitshift 255 and S exch write
  179.     } loop
  180.     /N 1 index def bitshift 255 and
  181.   } ifelse /B exch def
  182.   end
  183. } bind def
  184. /bitflush {        % <bstream> bitflush -
  185.   begin N 8 ne { S B write /B 0 def /N 8 def } if end
  186. } bind def
  187.  
  188. % Capture OFile output on the temporary file, in memory, or just as a length.
  189. /totemp {        % <proc> totemp <start> <end>
  190.   TFile fileposition OFile
  191.   /OFile TFile def 3 .execn
  192.   /OFile exch def
  193.   TFile fileposition
  194. } bind def
  195. /tomemory {        % <proc> tomemory <string>
  196.   OFile /OFile mstream def 2 .execn
  197.   OFile mcontents exch /OFile exch def
  198. } bind def
  199. /tolength {        % <proc> tolength <string>
  200.   OFile /OFile postream def 2 .execn
  201.   OFile poslength exch /OFile exch def
  202. } bind def
  203.  
  204. % Copy a range of bytes from TFile to OFile.
  205. /copyrange {        % <start> <end> copybytes -
  206.   TFile 2 index setfileposition
  207.   exch sub 1024 string exch {
  208.         % Stack: buf left
  209.     2 copy 1 index length .min 0 exch getinterval
  210.     TFile exch readstring pop OFile exch writestring
  211.     1 index length sub dup 0 le { exit } if
  212.   } loop pop pop
  213. } bind def
  214.  
  215. % Pad with blanks to a specified position.
  216. /padto {        % <pos> padto -
  217.   OFile fileposition sub
  218.   dup 0 lt {
  219.     (ERROR: file position incorrect by ) print =
  220.     /padto cvx /rangecheck signalerror
  221.   } {
  222.     { ( ) ows } repeat
  223.   } ifelse
  224. } bind def
  225.  
  226. % ---------------- Read objects into memory ---------------- %
  227.  
  228. /touch {        % <object> touch -
  229.   {
  230.     { touch touch } forall
  231.   } {
  232.     dup xcheck {
  233.         % Executable array, must be an indirect object.
  234.       dup 0 get resolved? { pop pop } { oforce touch } ifelse
  235.     } {
  236.       { touch } forall
  237.     } ifelse
  238.   } {
  239.     pop
  240.   } ifdaelse
  241. } bind def
  242.  
  243. % ---------------- Replace references with referents ---------------- %
  244.  
  245. /replaceable? {        % <value> replaceable? <bool>
  246.   dup type /integertype eq exch xcheck not and
  247. } bind def
  248. /replacement {        % <obj|ref> replacement <obj'>
  249.   dup oforce dup replaceable? { exch } if pop
  250. } bind def
  251.  
  252. /replacerefs {        % <object> replacerefs <object>
  253.   {
  254.     dup {
  255.       2 index 2 index undef
  256.       exch replacement exch replacement
  257.       2 index 3 1 roll put
  258.     } forall
  259.   } {
  260.     0 1 2 index length 1 sub {
  261.       1 index exch 2 copy get replacement put
  262.     } for
  263.   } {
  264.   } ifdaelse
  265. } bind def
  266.  
  267. /replaceReferences {    % - replaceReferences -
  268.   Objects { replacerefs pop } lforall
  269.         % Delete replaced objects.
  270.   0 1 Objects llength 1 sub {
  271.     Objects 1 index lget replaceable? {
  272.       PDEBUG { (Deleting ) print dup = } if
  273.       Generations 1 index 0 lput
  274.     } if pop
  275.   } for
  276. } bind def
  277.  
  278. % ---------------- Create new objects ---------------- %
  279.  
  280. /createObjects {    % [<obj>...] createObjects <firstobj#>
  281.   Objects llength dup
  282.   dup 3 index length add growPDFobjects
  283.         % Stack: objects objn objn
  284.   3 1 roll exch {
  285.     Objects 2 index 3 -1 roll lput
  286.     Generations 1 index 1 lput
  287.     1 add
  288.   } forall pop
  289. } bind def
  290.  
  291. % ---------------- Propagate attributes ---------------- %
  292.  
  293. /nopropattrs <<
  294.     % Never propagate these.
  295.   /Type dup /Kids dup /Count dup /Parent dup
  296.     % Handle Resources specially.
  297.   /Resources dup
  298. >> def
  299.  
  300. % Merge Resources.
  301. /mergeres {        % <fromdict> <todict> mergeres -
  302.         % Values in todict take priority over fromdict.
  303.   1 index /Resources .knownget {
  304.     1 index /Resources .knownget {
  305.         % Stack: fromdict todict fromres tores
  306.       exch oforce exch oforce
  307.         % todict's Resources may be shared, so make a copy.
  308.       dup length dict .copydict
  309.       exch {
  310.         % Stack: fromdict todict tores' fromkey fromvalue
  311.     2 index 2 index knownoget {
  312.         % Stack: fromdict todict tores' fromkey fromvalue tovalue
  313.       exch oforce exch
  314.         % ProcSet is an array, other types are dictionaries.
  315.       dup type /dicttype eq {
  316.         % Dictionary, not ProcSet.
  317.         exch dup length 2 index length add dict .copydict .copydict
  318.       } {
  319.         % Array or packed array, ProcSet.
  320.         % Use dictionaries to do the merge.
  321.         dup length 2 index length add dict begin
  322.         exch { dup def } forall { dup def } forall
  323.         mark currentdict end { pop } forall .packtomark
  324.       } ifelse
  325.     } if
  326.     2 index 3 1 roll put
  327.       } forall
  328.     } if /Resources exch put pop
  329.   } {
  330.     pop pop
  331.   } ifelse
  332. } bind def
  333.  
  334. % Merge attributes other than Resources.
  335. /mergeattrs {        % <fromdict> <todict> mergeattrs <fromdict> <todict>
  336.         % Values in todict take priority over fromdict.
  337.   1 index {
  338.         % Stack: fromdict todict fromkey fromvalue
  339.     //nopropattrs 2 index known {
  340.       pop pop
  341.     } {
  342.       2 index 2 index known { pop pop } { 2 index 3 1 roll put } ifelse
  343.     } ifelse
  344.   } forall
  345. } bind def
  346.  
  347. % Propagate attributes to a subtree.
  348. /proppage {        % <attrs> <subtree> proppage -
  349.         % We should be able to tell when we reach a leaf
  350.         % by finding a Type unequal to /Pages.  Unfortunately,
  351.         % some files distributed by Adobe lack the Type key
  352.         % in some of the Pages nodes!  Instead, we check for Kids.
  353.   dup /Kids knownoget {
  354.         % Accumulate inherited values.
  355.     3 1 roll
  356.         % Stack: kids attrs pagesnode
  357.     dup length dict .copydict mergeattrs
  358.     dup 3 1 roll mergeres
  359.     exch { oforce 1 index exch proppage } forall pop
  360.   } {
  361.         % Merge inherited values into the leaf.
  362.     mergeattrs mergeres
  363.   } ifelse
  364. } bind def
  365.  
  366. % Propagate attributes to all pages.
  367. /propagateAttributes {    % - propagateAttributes -
  368.   0 dict Trailer /Root oget /Pages oget proppage
  369. } bind def
  370.  
  371. % ---------------- Identify document-level objects ---------------- %
  372.  
  373. /identifyDocumentObjects {    % - identifyDocumentObjects <obj#s>
  374.   {
  375.     Trailer /Root omget
  376.     dup /PageMode .knownget { omvisit } if
  377.     % Don't allow omvisit to trace references to Page objects.
  378.     dup /OpenAction .knownget { omvisitnopage } if
  379.     Trailer /Encrypt .knownget { omvisit } if
  380.     dup /Threads .knownget {
  381.       omforce { omforce } forall
  382.     } if
  383.     dup /AcroForm .knownget { omvisit } if
  384.     pop
  385.   } visited
  386. } bind def
  387.  
  388. % ---------------- Identify the objects of each page ---------------- %
  389.  
  390. /identifyfont {        % <fontref> identifyfont -
  391.   omforce {
  392.     exch /FontDescriptor eq {
  393.       omforce dup /Flags .knownget { 32 and 0 ne } { false } ifelse
  394.       exch {
  395.     exch dup dup /FontFile eq exch /FontFile2 eq or
  396.     exch /FontFile3 eq or 2 index and {
  397.       fontfiles exch dadd
  398.     } {
  399.       omvisit
  400.     } ifelse
  401.       } forall pop
  402.     } {
  403.       omvisit
  404.     } ifelse
  405.   } forall
  406. } bind def
  407.  
  408. % Collect all the objects referenced from a page.  The first object number
  409. % (which may not be the smallest one) is that of the page object itself.
  410. /identifyPageObjects {    % <extra> <page#> identifyPageObjects <obj#s>
  411.   PDEBUG {
  412.     (%Objects for page: ) print dup =
  413.   } if
  414.   pdffindpageref
  415.   dup 0 get 3 1 roll
  416.   4 dict begin
  417.   /images 10 darray def
  418.   /fontfiles 10 darray def
  419.   {
  420.     omforce
  421.         % Stack: pageobj# extra page
  422.         % Visit any extra objects if applicable.
  423.     exch omvisit
  424.         % Visit Annots, if any.
  425.         % We don't try to defer the drawing information.
  426.     dup /Annots .knownget { omvisit } if
  427.         % Visit beads.
  428.     dup /B .knownget { omvisit } if
  429.         % Visit resources dictionaries.
  430.     dup /Resources .knownget {
  431.       omforce dup {
  432.         % Visit the first-level Resource dictionaries.
  433.     omforce pop pop
  434.       } forall {
  435.         % Visit the resources themselves.
  436.         % Skip Image XObjects, and FontFile streams if the
  437.         % FontDescriptor Flags have bit 6 set.
  438.         % We don't try to visit the resources in the order in which
  439.         % the Contents stream(s) reference(s) them.
  440.     exch dup /XObject eq {
  441.       pop oforce {
  442.         dup oforce /Subtype get /Image eq {
  443.           images exch dadd
  444.         } {
  445.           omvisit
  446.         } ifelse pop
  447.       } forall
  448.     } {
  449.       /Font eq {
  450.         oforce { identifyfont pop } forall
  451.       } {
  452.         oforce omvisit
  453.       } ifelse
  454.     } ifelse
  455.       } forall
  456.     } if
  457.         % Visit the Contents stream(s).
  458.     dup /Contents .knownget { omvisit } if
  459.         % Visit Image XObjects.  We don't try to visit them in
  460.         % reference order.
  461.     images { omvisit } daforall
  462.         % Visit FontFile streams.  We don't try to visit them in
  463.         % reference order.
  464.     fontfiles { omvisit } daforall
  465.     pop
  466.   } visited end
  467.         % Stack: pageobj# obj#s
  468.   [ 3 1 roll {
  469.     2 copy eq { pop } { exch } ifelse
  470.   } forall counttomark 1 roll ]
  471.   PDEBUG {
  472.     (%Objects = ) print dup === flush
  473.   } if
  474. } bind def
  475.  
  476. % Identify the objects of the first page.
  477. /identifyFirstPageObjects {    % - identifyFirstPageObjects <obj#s>
  478.   Trailer /Root oget null
  479.   1 index /PageMode knownoget {
  480.     /UseOutlines eq {
  481.       1 index /Outlines knownoget { exch pop } if
  482.     } if
  483.   } if exch pop
  484.   1 identifyPageObjects
  485. } bind def
  486.  
  487. % Identify the non-shared objects of the other pages, and the shared objects.
  488. % Note that the page objects themselves may appear to be shared, because of
  489. % references from Dest entries in annotations, but they must be treated as
  490. % non-shared.  Note also that some objects referenced on the first page may
  491. % also be referenced from other pages.
  492. /identifyOtherPageObjects {    % - identifyOtherPageObjects [<pageobj#s> ...]
  493.                 %   <sharedobj#s>
  494.   4 dict begin
  495.   /marks lstring Objects llength lgrowto def
  496.         % Collect objects of other pages and identify sharing.
  497.   [ 2 1 pdfpagecount { null exch identifyPageObjects } for ]
  498.   dup {
  499.     { marks exch 2 copy lget 1 add 254 .min lput } forall
  500.   } forall
  501.         % Mark document-level and first page objects.
  502.   [CatalogNs FirstPageNs] {
  503.     { marks exch 255 lput } forall
  504.   } forall
  505.         % Mark the page objects themselves as non-shared.
  506.   dup {
  507.     0 get marks exch 1 lput
  508.   } forall
  509.         % Collect the non-shared objects of each page.
  510.   [ exch {
  511.     [ exch {
  512.       marks 1 index lget 1 ne { pop } if
  513.     } forall ]
  514.   } forall ]
  515.         % Collect the shared objects.
  516.   [ 1 1 marks llength 1 sub {
  517.     marks 1 index lget dup 1 le exch 255 eq or { pop } if
  518.   } for ]
  519.   end
  520. } bind def
  521.  
  522. % Identify objects not associated with any page.
  523. /identifyNonPageObjects {    % - identifyNonPageObjects <obj#s>
  524.   4 dict begin
  525.   /marks lstring Objects llength lgrowto def
  526.   [[[LPDictN PHSN] CatalogNs FirstPageNs SharedNs] OtherPageNs] {
  527.     { { marks exch 1 lput } forall } forall
  528.   } forall
  529.     %****** PUT THESE IN A REASONABLE ORDER ******
  530.   [ 1 1 Objects llength 1 sub {
  531.     marks 1 index lget 0 eq {
  532.       Generations 1 index lget 0 eq { pop } if
  533.     } {
  534.       pop
  535.     } ifelse
  536.   } for ]
  537. } bind def
  538.  
  539. % ---------------- Assign object numbers ---------------- %
  540.  
  541. % Assign object numbers to all objects that will be copied.
  542. % Return the first (translated) object number in the First Page xref table.
  543. /assignObjectNumbers {        % - assignObjectNumbers -
  544.   OtherPageNs { { omap pop } forall } forall
  545.   SharedNs { omap pop } forall
  546.   NonPageNs { omap pop } forall
  547.         % Assign object numbers for the First Page xref table last.
  548.   LPDictN omap    % don't pop, this is the return value
  549.   CatalogNs { omap pop } forall
  550.   FirstPageNs { omap pop } forall
  551.   PHSN omap pop
  552. } bind def
  553.  
  554. % ---------------- Create the LPDict ---------------- %
  555.  
  556. % Create the contents of the LPDict.
  557. /createLPDict {            % <phsstart> <phsend> <firstpageend>
  558.                 %   <xref0start> <filelength> createLPDict -
  559.   LPDict
  560.   dup /Linearized 1 put
  561.   dup /L 4 -1 roll put        % filelength
  562.   dup /T 4 -1 roll put        % xref0start
  563.   dup /E 4 -1 roll put        % firstpageend
  564.   dup /H 5 -2 roll 1 index sub 2 array astore put    % phsstart, end-start
  565.   dup /O 1 pdffindpageref 0 get omap put
  566.   /N pdfpagecount put
  567. } bind def
  568.  
  569. % ---------------- Adjust object positions ---------------- %
  570.  
  571. /adjustObjectPositions {    % <boundary> <deltabelow> <deltaabove>
  572.                 %   adjustObjectPositions -
  573.     % Objects fall into 4 categories: LPDict, PHS, Catalog, and others.
  574.     % We handle the first two as special cases.
  575.   XRef {
  576.         % Stack: bdy below above key loc
  577.     dup 5 index ge { 2 } { 3 } ifelse index add
  578.     XRef 3 1 roll put
  579.   } forall pop pop pop
  580.   XRef LPDictN omap HeaderLength put
  581.   XRef PHSN omap PHSStart put
  582. } bind def
  583.  
  584. % ---------------- Write the output file ---------------- %
  585.  
  586. % Write objects identified by object number.
  587. /writeobjn {        % <obj#> writeobjn -
  588.   Generations 1 index lget pdfwriteobj
  589. } bind def
  590. /writeobjns {        % <obj#s> writeobjns -
  591.   { writeobjn } forall
  592. } bind def
  593.  
  594. % Write a part of the output file.
  595. /writePart {        % <proc> <label> writePart -
  596.   PDEBUG {
  597.     dup print ( count=) print count =only ( start=) print
  598.     OFile { .fileposition } stopped { pop (???) } if =
  599.     2 .execn
  600.     print ( end=) print
  601.     OFile { .fileposition } stopped { pop (???) } if =
  602.   } {
  603.     pop exec
  604.   } ifelse
  605. } bind def
  606.  
  607. % Write the header.
  608. /writePart1 {        % - writePart1 -
  609.   {
  610.     pdfwriteheader
  611.   } (part1) writePart
  612. } bind def
  613.  
  614. % Write the linearization parameters dictionary.
  615. /writePart2 {        % - writePart2 -
  616.   {
  617.     LPDictN writeobjn
  618.   } (part2) writePart
  619. } bind def
  620.  
  621. % Write the First Page xref table and trailer.
  622. % Free variables: FirstPageXN.
  623. /writePart3 {        % <xrefstart> writePart3 -
  624.   {
  625.     FirstPageXN NObjects 1 add 1 index sub pdfwritexref
  626.     Trailer dup length 1 add dict copy
  627.     dup /Size NObjects 1 add put
  628.     dup /Prev 4 -1 roll put
  629.     pdfwritetrailer
  630.     0 pdfwritestartxref
  631.   } (part3) writePart
  632. } bind def
  633.  
  634. % Write the Catalog and other required document-level objects.
  635. % Free variables: CatalogNs.
  636. /writePart4 {        % - writePart4 -
  637.   {
  638.     CatalogNs writeobjns
  639.   } (part4) writePart
  640. } bind def
  641.  
  642. % Write the Primary Hint Stream.
  643. /writePart5 {        % - writePart5 -
  644.   {
  645.     PHSN writeobjn
  646.   } (part5) writePart
  647. } bind def
  648.  
  649. % Write the First Page's objects.
  650. % Free variables: FirstPageNs.
  651. /writePart6 {        % - writePart6 -
  652.   {
  653.     FirstPageNs writeobjns
  654.   } (part6) writePart
  655. } bind def
  656.  
  657. % Write the objects of other pages (Page + non-shared objects).
  658. % Free variables: OtherPageNs.
  659. /writePart7 {        % - writePart7 <lengths>
  660.   {
  661.     [ OtherPageNs {
  662.       OFile fileposition exch
  663.       writeobjns OFile fileposition exch sub
  664.     } forall ]
  665.   } (part7) writePart
  666. } bind def
  667.  
  668. % Write the shared objects of other pages.
  669. % Free variables: SharedNs.
  670. /writePart8 {        % - writePart8 -
  671.   {
  672.     SharedNs writeobjns
  673.   } (part8) writePart
  674. } bind def
  675.  
  676. % Write the other objects not associated with pages.
  677. % Free variables: NonPageNs.
  678. /writePart9 {        % - writePart9 -
  679.   {
  680.     NonPageNs writeobjns
  681.   } (part9) writePart
  682. } bind def
  683.  
  684. % Write the main xref table and trailer.
  685. % Free variables: FirstPageXN.
  686. /writePart11xref {    % writePart11 -
  687.   {
  688.     0 FirstPageXN pdfwritexref
  689.   } (part11xref) writePart
  690. } bind def
  691. /writePart11rest {    % <part3start> writePart11rest -
  692.   {
  693.     << /Size FirstPageXN >> pdfwritetrailer
  694.     pdfwritestartxref
  695.   } (part11rest) writePart
  696. } bind def
  697.  
  698. % ---------------- Write hint tables ---------------- %
  699.  
  700. /bitsneeded {        % <maxvalue> bitsneeded <#bits>
  701.   0 exch { dup 0 eq { pop exit } if exch 1 add exch 2 idiv } loop
  702. } bind def
  703.  
  704. % Find the start and end of objects in the output.
  705. /omstart {        % <obj#> omstart <pos>
  706.   PDEBUG { (start\() print dup =only } if
  707.   omap
  708.   PDEBUG { (=>) print dup =only } if
  709.   XRef exch get
  710.   PDEBUG { (\) = ) print dup = } if
  711. } bind def
  712. /omend {        % <obj#> omend <pos>
  713.     % The end of an object is the start of the next object.
  714.     % The caller must be sure that this object is not the last one
  715.     % in part 9.
  716.   PDEBUG { (end\() print dup =only } if
  717.   omap
  718.   PDEBUG { (=>) print dup =only } if
  719.   1 add
  720.     % Check that the requested object wasn't the last one in part 6:
  721.     % the next object in the output file is the first in part 7.
  722.   PHSN omap 1 index eq { pop 1 } if
  723.   XRef exch get
  724.   PDEBUG { (\) = ) print dup = } if
  725. } bind def
  726. /omlength {        % <obj#> omlength <length>
  727.   dup omend exch omstart sub
  728. } bind def
  729.  
  730. % Find the Contents of a page.
  731. /contentsobjects { % <pagedict> contentsobjects <firstobj#> <lastobj#> true
  732.            % <pagedict> contentsobjects false
  733.   /Contents .knownget {
  734.     dup oforce dup type /dicttype eq {
  735.       pop dup
  736.     } {
  737.       dup 0 get exch dup length 1 sub get
  738.     } ifelse
  739.     exch 0 get exch 0 get true
  740.   } {
  741.     false
  742.   } ifelse
  743. } bind def
  744. /contentsstart {    % <pagedict> contentsstart <pos> true
  745.             % <pagedict> contentsstart false
  746.   contentsobjects { pop omstart true } { false } ifelse
  747. } bind def
  748. /contentslength {    % <pagedict> contentslength <length>
  749.   contentsobjects { omend exch omstart sub } { 0 } ifelse
  750. } bind def
  751.  
  752.  
  753. /writePageOffsetHints {
  754.   PDEBUG { /writePageOffsetHints == } if
  755.   20 dict begin
  756.   /bits OFile bitstream def
  757.   /bwn { bits 3 1 roll bitwrite } def
  758.  
  759.     % Calculate least length of a page.
  760.   FirstPageLength OtherPageLengths { .min } forall
  761.   /minpl exch def
  762.     % Calculate least contents length.
  763.   FirstPageNs 0 get Objects exch lget contentslength
  764.   OtherPageNs { 0 get Objects exch lget contentslength .min } forall
  765.   /mincl exch def
  766.  
  767.     % The Adobe documentation says that all versions of Acrobat
  768.     % require item 8 (mincl) to be zero.  Patch this here.
  769.   /mincl 0 def
  770.  
  771.     % Calculate bits needed to represent greatest page length.
  772.   FirstPageLength OtherPageLengths { .max } forall
  773.   minpl sub bitsneeded /maxplbits exch def
  774.     % Calculate bits needed to represent the greatest Contents length.
  775.   FirstPageNs 0 get Objects exch lget contentslength
  776.   OtherPageNs { 0 get Objects exch lget contentslength .max } forall
  777.   mincl sub bitsneeded /maxclbits exch def
  778.  
  779.     % Per Adobe documentation, Acrobat requires that item 5 (maxplbits)
  780.     % be equal to item 9 (maxclbits).  Set both to the max of the two.
  781.   maxplbits maxclbits .max /maxplbits 1 index def /maxclbits exch def
  782.  
  783.         % 1: Least number of objects in a page:
  784.   FirstPageNs length OtherPageNs { length .min } forall
  785.   /minnop 1 index def 32 bwn
  786.         % 2: Location of first page's Page object:
  787.   FirstPageNs 0 get omap XRef exch get 32 bwn
  788.         % 3: Bits needed to represent greatest # of objects in a page:
  789.   FirstPageNs length OtherPageNs { length .max } forall
  790.   minnop sub bitsneeded /maxnopbits 1 index def 16 bwn
  791.         % 4: Least length of a page:
  792.   minpl 32 bwn
  793.         % 5: Bits needed to represent the greatest page length:
  794.   maxplbits 16 bwn
  795.         % 6: Least start of Contents offset:
  796.   0        % (Acrobat requires that this be 0.)
  797.   /minsco 1 index def 32 bwn
  798.         % 7: Bits needed to represent the greatest start of Contents
  799.         % offset:
  800.   0        % (Acrobat ignores this.)
  801.   /maxscobits 1 index def 16 bwn
  802.         % 8: Least contents length:
  803.   mincl 32 bwn
  804.         % 9: Bits needed to represent the greatest Contents length:
  805.   maxclbits 16 bwn
  806.         % 10: Bits needed to represent the greatest number of Shared
  807.   0        % Object references (we don't report any):
  808.   /maxsorbits 1 index def 16 bwn
  809.         % 11: Bits needed to identify a Shared Object (we don't
  810.   0        % report any):
  811.   /sobits 1 index def 16 bwn
  812.         % 12: Bits needed to represent numerator of fraction (only
  813.   0        % needed for Shared Object references, which we don't report):
  814.   /numfbits 1 index def 16 bwn
  815.         % 13: Denominator of fraction (only needed for Shared Object
  816.         % references, which we don't report):
  817.   255    % arbitrary
  818.   /denf 1 index def 16 bwn
  819.  
  820.         % Number of objects in pages:
  821.   FirstPageNs length minnop sub maxnopbits bwn
  822.   OtherPageNs {
  823.     length minnop sub maxnopbits bwn
  824.   } forall
  825.  
  826.         % Total length of pages in bytes;
  827.   FirstPageLength minpl sub maxplbits bwn
  828.   OtherPageLengths {
  829.     minpl sub maxplbits bwn
  830.   } forall
  831.  
  832.         % Number of shared objects referenced from page:
  833.         % (Currently we don't report this.)
  834.   OtherPageNs length 1 add { 0 maxsorbits bwn } repeat
  835.  
  836.         % Since there are no shared object references,
  837.         % the next two sections are empty.
  838.  
  839.         % Contents offsets:
  840.   [FirstPageNs OtherPageNs aload pop] {
  841.     0 get Objects exch lget contentsstart { minsco sub } { 0 } ifelse
  842.     maxscobits bwn
  843.   } forall
  844.  
  845.         % Contents lengths:
  846.   [FirstPageNs OtherPageNs aload pop] {
  847.     0 get Objects exch lget contentslength mincl sub maxclbits bwn
  848.   } forall
  849.  
  850.   bits bitflush end
  851. } bind def
  852.  
  853. /writeSharedObjectHints {
  854.   PDEBUG { /writeSharedObjectHints == } if
  855.   20 dict begin
  856.   /bits OFile bitstream def
  857.   /bwn { bits 3 1 roll bitwrite } def
  858.  
  859.         % Currently we use the Shared Object hint table only for
  860.         % the objects in the first page, which are all treated as
  861.         % "shared" objects.
  862.  
  863.         % Object number of first object in Shared Objects section
  864.         % (not currently used):
  865.   0 32 bwn
  866.         % Location of first object in Shared Objects section
  867.         % (not currently used): If there are no shared objects,
  868.         % Acrobat sets this to the location of linearization
  869.         % parameters object (the very first object).
  870.   { pdfwriteheader } tomemory length 32 bwn
  871.         % Number of Shared Object entries for first page:
  872.   FirstPageNs length 32 bwn
  873.         % Number of Shared Object entries for Shared Objects
  874.         % section (not currently used):
  875.   FirstPageNs length 32 bwn
  876.         % Bits needed to represent the greatest number of objects
  877.         % in a shared object group (always 0, because all groups
  878.         % have only 1 object):
  879.   0 16 bwn
  880.         % Least length of a Shared Object Group in bytes:
  881.   16#7fffffff FirstPageNs { omlength .min } forall
  882.   /minsol 1 index def 32 bwn
  883.         % Bits needed to represent the greatest length of a
  884.         % Shared Object Group:
  885.   0 FirstPageNs { omlength .max } forall
  886.   minsol sub bitsneeded
  887.   /maxsolbits 1 index def 16 bwn
  888.  
  889.         % Lengths of shared object groups:
  890.   FirstPageNs { omlength minsol sub maxsolbits bwn } forall
  891.  
  892.         % MD5 flag:
  893.   0 1 bwn
  894.  
  895.   bits bitflush end
  896. } bind def
  897.  
  898. % ---------------- Main program ---------------- %
  899.  
  900. /pdfOptimize {        % <infile> <outfile> pdfOptimize -
  901.   realtime 3 1 roll
  902.   exch pdfdict begin pdfopenfile dup begin
  903.   40 dict begin
  904.   /IDict exch def
  905.   /OFile exch def
  906.   /starttime exch def
  907.   /now {
  908.     QUIET { pop } { print (, t = ) print realtime starttime sub = flush } ifelse
  909.   } def
  910.   omapinit
  911.   
  912.     % Create and open a temporary file.
  913.     % Because of .setsafe, we have to open it as read-write, rather than
  914.     % opening for writing, then closing it and reopening it for reading.
  915.  
  916.   null (w+) .tempfile /TFile exch def /TFileName exch def
  917.   .setsafe
  918.  
  919.     % Read all objects into memory.
  920.  
  921.   Trailer touch
  922.   (Read objects) now
  923.  
  924.     % Replace indirect references to numbers.  This is needed
  925.     % for the Length of streams, and doesn't hurt anything else.
  926.  
  927.   replaceReferences
  928.   (Replaced references) now
  929.  
  930.     % Create the two new objects: the linearization parameter
  931.     % dictionary, and the Primary Hint Stream.
  932.  
  933.   /LPDict 10 dict def
  934.   /PHS 10 dict cvx def        % executable = stream
  935.   [LPDict PHS] createObjects
  936.   /LPDictN 1 index def 1 add
  937.   /PHSN exch def
  938.   PDEBUG { << /LPDictN LPDictN /PHSN PHSN >> === } if
  939.  
  940.     % Count the number of objects in the output.
  941.  
  942.   0 0 1 Objects llength 1 sub {
  943.     Generations exch lget 0 ne { 1 add } if
  944.   } for
  945.   /NObjects exch def
  946.   QUIET not { NObjects =only ( objects total) = flush } if
  947.  
  948.     % Propagate inherited attributes down the page tree.
  949.  
  950.   propagateAttributes
  951.   (Propagated attributes) now
  952.  
  953.     % Identify the document-level objects (part 4).
  954.  
  955.   identifyDocumentObjects /CatalogNs exch def
  956.   QUIET not { CatalogNs === flush } if
  957.   (Identified Catalog) now
  958.  
  959.       % Identify the first page's objects (part 6),
  960.     % including the Outlines tree if appropriate.
  961.  
  962.   pdfopencache
  963.   /FirstPageNs identifyFirstPageObjects def
  964.   QUIET not { FirstPageNs === flush } if
  965.   (Identified first page) now
  966.  
  967.     % Identify shared vs. non-shared objects for remaining pages
  968.     % (parts 7 and 8).
  969.  
  970.   identifyOtherPageObjects
  971.   /SharedNs exch def
  972.   /OtherPageNs exch def
  973.   QUIET not { OtherPageNs === flush SharedNs === flush } if
  974.   (Identified other pages) now
  975.  
  976.     % Identify objects not associated with any page (part 9).
  977.  
  978.   /NonPageNs identifyNonPageObjects def
  979.   QUIET not { NonPageNs === flush } if
  980.   (Identified non-pages) now
  981.  
  982.     % Assign final object numbers to all the objects.
  983.     % (The omap is currently empty.)
  984.  
  985.   /FirstPageXN assignObjectNumbers def
  986.   (Assigned objects #s) now
  987.  
  988.     % Write the document-level objects (part 4).
  989.  
  990.   { writePart4 } totemp
  991.   /CatalogTempEnd exch def /CatalogTempStart exch def
  992.   (Wrote Catalog) now
  993.  
  994.     % Write the first page's objects (part 6).
  995.  
  996.   { writePart6 } totemp
  997.   /FirstPageTempEnd exch def /FirstPageTempStart exch def
  998.   (Wrote first page) now
  999.  
  1000.     % Write the non-shared objects for other pages (part 7).
  1001.  
  1002.   { writePart7 /OtherPageLengths exch def } totemp
  1003.   /OtherPageTempEnd exch def /OtherPageTempStart exch def
  1004.   (Wrote other pages) now
  1005.  
  1006.     % Write the shared objects for other pages (part 8).
  1007.  
  1008.   { writePart8 } totemp
  1009.   /SharedTempEnd exch def /SharedTempStart exch def
  1010.   (Wrote shared objects) now
  1011.  
  1012.     % Write the objects not associated with pages (part 9).
  1013.  
  1014.   { writePart9 } totemp
  1015.   /NonPageTempEnd exch def /NonPageTempStart exch def
  1016.  
  1017.     % Compute conservative lengths of parts 2,3,5,11 of the output.
  1018.     % It's OK for these to be too large, but not too small.
  1019.  
  1020.   % Make dummy XRef entres for LPDict and PHS.
  1021.   XRef LPDictN omap 0 put
  1022.   XRef PHSN omap 0 put
  1023.  
  1024.   /HeaderLength {    % this is exact
  1025.     writePart1            % part 1
  1026.   } tolength def
  1027.   /CatalogLength    % this is exact
  1028.     CatalogTempEnd CatalogTempStart sub def    % part 4
  1029.   /FirstPageLength    % this is exact
  1030.     FirstPageTempEnd FirstPageTempStart sub def    % part 6
  1031.   /OtherObjectsLength    % this is exact
  1032.     NonPageTempEnd OtherPageTempStart sub def    % parts 7,8,9
  1033.   /ObjectsLength    % this is exact
  1034.     CatalogLength FirstPageLength add OtherObjectsLength add def
  1035.   /XrefLength {            % part 11
  1036.     % The LPDict must end within the first 1024 bytes,
  1037.     % so the start of the FirstPage xref table can't exceed 1024.
  1038.     writePart11xref 1024 writePart11rest
  1039.   } tolength def
  1040.   /NominalFileLength     % Make a generous allowance for parts 2,3,5.
  1041.     HeaderLength ObjectsLength 3 mul add 10000 add 99999 .max def
  1042.   /FirstPageXrefLength {    % part 3
  1043.     NominalFileLength writePart3
  1044.   } tolength def
  1045.   /LPDictLength {        % part 2
  1046.     NominalFileLength dup 2 mul 2 copy add 1 index dup createLPDict writePart2
  1047.   } tolength def
  1048.  
  1049.     % Compute a few additional values from the above.
  1050.  
  1051.   /XrefBeginLength {
  1052.     (xref\n0 ) ows
  1053.     OFile FirstPageXN write=
  1054.   } tolength def
  1055.   HeaderLength LPDictLength add
  1056.   /FirstPageXrefStart 1 index def
  1057.   FirstPageXrefLength add
  1058.   /CatalogStart 1 index def
  1059.   CatalogLength add        % phsstart
  1060.   /PHSStart exch def
  1061.  
  1062.     % Adjust the object positions ignoring PHS.
  1063.     % (Writing the PHS needs these.)
  1064.  
  1065.   0 0 CatalogStart CatalogTempStart sub adjustObjectPositions
  1066.   % Make a temporary XRef entry for the PHS, for the benefit of omend.
  1067.   XRef PHSN omap CatalogStart put
  1068.   (Adjusted positions) now
  1069.  
  1070.     % Construct the hint tables (part 5).
  1071.  
  1072.   { writePageOffsetHints } totemp
  1073.   pop /PHSTempStart exch def
  1074.   { writeSharedObjectHints } totemp
  1075.   exch PHSTempStart sub PHS /S 3 -1 roll put
  1076.   PHSTempStart sub /PHSTempLength exch def
  1077.   (Wrote hints) now
  1078.  
  1079.   % Prepare to read TFile.
  1080. %  TFile closefile
  1081. %  /TFile TFileName (r) file def
  1082.  
  1083.   PHS
  1084.     dup /File TFile put
  1085.     dup /FilePosition PHSTempStart put
  1086.     dup /Length PHSTempLength put
  1087.   pop
  1088.   /PHSLength { writePart5 } tolength def
  1089.  
  1090.     % Construct the linearization parameter dictionary (part 2).
  1091.  
  1092.   PHSStart
  1093.   dup PHSLength add        % phsend
  1094.   /FirstPageStart 1 index def
  1095.   dup FirstPageLength add    % firstpageend
  1096.   dup OtherObjectsLength add
  1097.   /XrefStart 1 index def
  1098.   XrefBeginLength add        % xref0start
  1099.   dup XrefBeginLength sub XrefLength add    % fileend
  1100.     % Because of a bug, Acrobat Reader doesn't recognize any file
  1101.     % shorter than 1K as linearized.  Patch this here.
  1102.   1024 .max
  1103.   /FileLength 1 index def
  1104.   createLPDict
  1105.  
  1106.     % Adjust the object positions again, taking the PHS into account.
  1107.  
  1108.   PHSStart 0 PHSLength adjustObjectPositions
  1109.   (Readjusted positions) now
  1110.  
  1111.     % Finally, write the output file.
  1112.  
  1113.   writePart1
  1114.   writePart2
  1115.   FirstPageXrefStart padto
  1116.   XrefStart writePart3
  1117.   CatalogStart padto
  1118.   CatalogTempStart CatalogTempEnd copyrange    % part 4
  1119.   writePart5
  1120.   FirstPageStart padto
  1121.   FirstPageTempStart NonPageTempEnd copyrange    % parts 6,7,8,9
  1122.   % No Overflow Hint Stream (part 10).
  1123.   XrefStart padto
  1124.   writePart11xref
  1125.   { FirstPageXrefStart writePart11rest } tomemory
  1126.   FileLength 1 index length sub padto ows
  1127.   (Wrote output file) now
  1128.  
  1129.     % Wrap up.
  1130.  
  1131.   TFile closefile TFileName deletefile
  1132.   end        % temporary dict
  1133.   end        % IDict
  1134. } bind def
  1135.  
  1136. end            % pdfoptdict
  1137. .setglobal
  1138.  
  1139. % Check for command line arguments.
  1140. [ shellarguments {
  1141.   ] dup length 2 eq {
  1142.     % Load the pdfwrite utilities if necessary.
  1143.     /omapinit where { pop } { (pdfwrite.ps) runlibfile } ifelse
  1144.     save exch
  1145.     aload pop exch (r) file exch (w) file
  1146.     3000000 setvmthreshold
  1147.     pdfoptdict begin pdfOptimize end
  1148.     restore
  1149.   } {
  1150.     (Usage: gs -dNODISPLAY -- pdfopt.ps input.pdf output.pdf) = flush quit
  1151.   } ifelse
  1152. } {
  1153.   pop
  1154. } ifelse
  1155.